setdisplay(320,240,32,1):paper(8^8-1):ink(0):pen(0):cls:mousehide
line(0,31,31,0)
line(1,1,31,31)
grab(1,0,0,32,32)

baseimage(1,1)

for i=0 to 32*32*4-1
   poke(1,i,127)
 next

while key(27)=0
   bob(1,xmouse,ymouse,1)
   waitvbl
 end while
